library(readr) death = read_csv( "http://johnmuschelli.com/intro_to_r/data/indicatordeadkids35.csv") death[1:2, 1:5]
# A tibble: 2 x 5 X1 `1760` `1761` `1762` `1763` <chr> <dbl> <dbl> <dbl> <dbl> 1 Afghanistan NA NA NA NA 2 Albania NA NA NA NA
colnames(death)[1] = "country" death[1:2, 1:5]
# A tibble: 2 x 5 country `1760` `1761` `1762` `1763` <chr> <dbl> <dbl> <dbl> <dbl> 1 Afghanistan NA NA NA NA 2 Albania NA NA NA NA